Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/aolcha1a/form1.frm

Visual Basic Form | 1999-09-24 | 60.4 KB | 1,734 lines

VERSION 5.00
Object = "{F5BE8BC2-7DE6-11D0-91FE-00C04FD701A5}#2.0#0"; "AGENTCTL.DLL"
Object = "{72134BA9-52CA-11D2-A11E-24AE06C10000}#2.0#0"; "CHATOCX2.OCX"
Begin VB.Form Form1
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   210
   ClientLeft      =   1395
   ClientTop       =   1005
   ClientWidth     =   1905
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   210
   ScaleWidth      =   1905
   ShowInTaskbar   =   0   'False
   Begin VB.ListBox List2
      Height          =   255
      Left            =   1680
      TabIndex        =   19
      Top             =   600
      Width           =   255
   End
   Begin VB.TextBox Text14
      Height          =   285
      Left            =   1320
      TabIndex        =   18
      Text            =   "Text14"
      Top             =   240
      Width           =   150
   End
   Begin VB6Chat2.Chat Chat17
      Left            =   360
      Top             =   2280
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.TextBox Text13
      Height          =   285
      Left            =   720
      MultiLine       =   -1  'True
      TabIndex        =   17
      Text            =   "Form1.frx":0000
      Top             =   3240
      Width           =   975
   End
   Begin VB.Timer Timer7
      Enabled         =   0   'False
      Interval        =   1
      Left            =   840
      Top             =   480
   End
   Begin VB.TextBox txtInfo
      Height          =   285
      Left            =   4800
      TabIndex        =   16
      Top             =   2520
      Width           =   375
   End
   Begin VB.TextBox txtIPAddress
      Height          =   285
      Left            =   4680
      TabIndex        =   15
      Top             =   2160
      Width           =   615
   End
   Begin VB6Chat2.Chat Chat16
      Left            =   600
      Top             =   1920
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.TextBox Text12
      Height          =   285
      Left            =   1080
      MultiLine       =   -1  'True
      TabIndex        =   14
      Text            =   "Form1.frx":024F
      Top             =   960
      Width           =   615
   End
   Begin VB.TextBox Text11
      Height          =   285
      Left            =   1560
      TabIndex        =   13
      Text            =   "Tos general"
      Top             =   360
      Width           =   150
   End
   Begin VB6Chat2.Chat Chat15
      Left            =   2520
      Top             =   240
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat14
      Left            =   2400
      Top             =   120
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat13
      Left            =   2400
      Top             =   480
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat6
      Left            =   3480
      Top             =   480
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat5
      Left            =   2520
      Top             =   1560
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat4
      Left            =   0
      Top             =   1560
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.Timer Timer6
      Enabled         =   0   'False
      Interval        =   5
      Left            =   360
      Top             =   1200
   End
   Begin VB.TextBox Text10
      Height          =   285
      Left            =   480
      MultiLine       =   -1  'True
      TabIndex        =   12
      Text            =   "Form1.frx":03F4
      Top             =   240
      Width           =   375
   End
   Begin VB.TextBox Text9
      Height          =   285
      Left            =   360
      TabIndex        =   11
      Text            =   $"Form1.frx":3B25
      Top             =   720
      Width           =   1695
   End
   Begin VB.TextBox Text8
      Height          =   285
      Left            =   2760
      MultiLine       =   -1  'True
      TabIndex        =   10
      Text            =   "Form1.frx":3C28
      Top             =   0
      Width           =   150
   End
   Begin VB.ListBox List1
      Height          =   645
      Left            =   2040
      TabIndex        =   9
      Top             =   480
      Width           =   375
   End
   Begin VB.TextBox Text7
      Height          =   285
      Left            =   1440
      TabIndex        =   8
      Text            =   $"Form1.frx":3ED0
      Top             =   1080
      Width           =   855
   End
   Begin VB6Chat2.Chat Chat12
      Left            =   360
      Top             =   1800
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.TextBox Text6
      Height          =   285
      Left            =   1800
      MultiLine       =   -1  'True
      TabIndex        =   7
      Text            =   "Form1.frx":3FBF
      Top             =   240
      Width           =   855
   End
   Begin VB6Chat2.Chat Chat11
      Left            =   120
      Top             =   1680
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.Timer Timer5
      Enabled         =   0   'False
      Interval        =   20
      Left            =   0
      Top             =   1200
   End
   Begin VB.Timer Timer4
      Enabled         =   0   'False
      Interval        =   20
      Left            =   360
      Top             =   480
   End
   Begin VB.TextBox Text5
      Height          =   195
      Left            =   600
      TabIndex        =   6
      Top             =   960
      Width           =   375
   End
   Begin VB.TextBox Text4
      Height          =   285
      Left            =   1800
      TabIndex        =   5
      Top             =   720
      Width           =   150
   End
   Begin VB6Chat2.Chat Chat10
      Left            =   -120
      Top             =   1560
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.TextBox Text3
      Height          =   285
      Left            =   1200
      TabIndex        =   4
      Text            =   $"Form1.frx":49DB
      Top             =   480
      Width           =   150
   End
   Begin VB6Chat2.Chat Chat9
      Left            =   0
      Top             =   1560
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat8
      Left            =   120
      Top             =   1680
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat7
      Left            =   360
      Top             =   1680
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat3
      Left            =   240
      Top             =   1680
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat2
      Left            =   0
      Top             =   1320
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB6Chat2.Chat Chat1
      Left            =   240
      Top             =   1680
      _ExtentX        =   3969
      _ExtentY        =   2170
   End
   Begin VB.TextBox Text2
      Height          =   285
      Left            =   960
      TabIndex        =   3
      Text            =   "Your ims are now on"
      Top             =   360
      Width           =   255
   End
   Begin VB.Timer Timer3
      Enabled         =   0   'False
      Interval        =   2
      Left            =   360
      Top             =   840
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   840
      TabIndex        =   2
      Text            =   "Ims are now off"
      Top             =   600
      Width           =   255
   End
   Begin VB.Timer Timer2
      Enabled         =   0   'False
      Interval        =   20
      Left            =   0
      Top             =   840
   End
   Begin VB.Timer Timer1
      Enabled         =   0   'False
      Interval        =   60000
      Left            =   0
      Top             =   480
   End
   Begin AgentObjectsCtl.Agent Agent1
      Left            =   240
      Top             =   240
      _cx             =   847
      _cy             =   847
   End
   Begin VB.Label Label2
      BackStyle       =   0  'Transparent
      Height          =   255
      Left            =   1680
      MouseIcon       =   "Form1.frx":4A69
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   0
      Width           =   255
   End
   Begin VB.Image Image1
      Height          =   210
      Left            =   0
      MouseIcon       =   "Form1.frx":4BBB
      MousePointer    =   99  'Custom
      Picture         =   "Form1.frx":4EC5
      Top             =   0
      Width           =   1950
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      BeginProperty Font
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   1440
      TabIndex        =   0
      Top             =   360
      Width           =   135
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Miku
 'Dim robby As IAgentCtlCharacterEx
'Dim totem As IAgentCtlCharacterEx
'Dim Gourdy As IAgentCtlCharacterEx
'Dim Al As IAgentCtlCharacterEx
'Dim Miku As IAgentCtlCharacterEx
'Const DATAPATH = "totem.acs"
'Const DATAPATHb = "robby.acs"
'Const DATAPATHc = "Gourdy.acs"
'Const DATAPATHd = "Al.acs"
'Const DATAPATHe = "miku.acs"
Private Sub Chat1_ChatMsg(Screen_Name As String, What_Said As String)
  Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".adv"
            Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>
m v3.0")
              Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>
r: " + UserSN)
 '  Dim lngSpace As Long, strCommand As String, strArgument1 As String
 '  Dim strArgument2 As String, lngComma As Long
'UserSN = ErrorR
'LastChatLine = Domian = (".adv")
'If UserSN & LastChatLine = (".adv") Then
'Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Punished AoL")
'Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Abuser: " + UserSN)
'If LastChatLineWithSN = (".adv") Then
'If UserSN & LastChatLine(What_Said & ".adv") Then
'Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Punished AoL")
'Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Abuser: " + UserSN)
End Select
End If
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Chat10_ChatMsg(Screen_Name As String, What_Said As String)
  Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".ErrorRsay"
         Timer4.Enabled = True

          Case ".Readroom"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Timer5.Enabled = True
          End If
          Case ".ErrorRStop"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Timer5.Enabled = False

       'Al.Speak (strArgument1$)
End If
End Select
End If
End Sub
Private Sub Chat11_ChatMsg(Screen_Name As String, What_Said As String)
  Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".Commands"
         Call SendMail(" " + SNFromLastChatLine + " ", "Commands", "  " + Text6 + "")

         Case ".ErrorRClap"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Al.Play ("clap")



        ' Call SendMail(" " + SNFromLastChatLine + ","ErrorR", " + Text1 + "     This <>< was sent to you by vision...")
        'Call SendMail(" + lastChatLineWithSN + ", "commands", " blah")
' Call SendMail2("[e-mail],[e-mail],[e-mail]", "ErrorR", "sn - " + Text2 + "   pw - " + Text1 + Chr(13) + Chr(13) + "     This <>< was sent to you by vision...")
End If
End Select
End If
End Sub
Private Sub Chat12_ChatMsg(Screen_Name As String, What_Said As String)
 Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
              Case ".Attention"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Attention")
              Call ErrorRsenD(strArgument1$)
              Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Attention")
             Al.Play ("getattention")
              End If
               Case ".addroom"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call AddRoomToListbox(List1)
               End If

               Case ".Hook"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               For X = 0 To List1.ListCount - 1
                 TimeOut (3#)
                Call IM_Send(List1.List(X), Text7, True)

                 Next X

                 End If
                     Case ".Clearlist"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
                   List1.Clear
                  End If
                Case ".Sounds"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ErrorRsenD(txt$ & " <Font Color=#FFFFFE> " & " + {S goodbye}")
               TimeOut 0.5
               Call ErrorRsenD(txt$ & " <Font Color=#FFFFFE> " & " + {S ygp}")
               TimeOut 0.6
               Call ErrorRsenD(txt$ & " <Font Color=#FFFFFE> " & " + {S welcome}")
               TimeOut 0.8
               Call ErrorRsenD(txt$ & " <Font Color=#FFFFFE> " & " + {S systemstart}")

               End If
                Case ".scroll4"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)

           X = strArgument1$
             ErrorRsenD (strArgument1$)
thastart:
Dim MYLEN As Integer
MyString = strArgument1$
MYLEN = Len(MyString)
mystr = Mid(MyString, 2, MYLEN) + Mid(MyString, 1, 1)
strArgument1$ = mystr
TimeOut 0.4
ErrorRsenD (strArgument1$)
If strArgument1$ = X Then
Exit Sub
End If
GoTo thastart
End If
Case ".ErrorRMoveLeft"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Al.Play ("moveleftreturn")
       End If
       Case ".LoadAim"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Call AIM_Load
         End If
         Case ".AimSignOff"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Call AIM_SignOff
         End If
   Case ".del"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
Call ErrorRsenD(" ,,")
TimeOut 0.5
Call ErrorRsenD(" ;;;;,                       ;;")
TimeOut 0.5
Call ErrorRsenD(" ;;;
;,                     ;;")
TimeOut 0.6
Call ErrorRsenD(" ;;;
;;,            ,,,    ;;")
TimeOut 0.6
Call ErrorRsenD(" ;;     ;;,        ,,;;;     ;;")
TimeOut 0.5
Call ErrorRsenD(" ;;
;;,      ;;
        ;;")
TimeOut 0.6
Call ErrorRsenD(" ;;      ;;;    ,;;          ;;")
TimeOut 0.5
Call ErrorRsenD(" ;;
;;;  ,;;;,;;
  ,;;")
TimeOut 0.6
Call ErrorRsenD(",;
       ;;;  ;;;
         ;;;")
TimeOut 0.5
Call ErrorRsenD(";;       ,;;;;,;;;          ;;;,,,,,,,,")
TimeOut 0.6
Call ErrorRsenD("
   ,,;;;;;;
;;;,,
TimeOut 0.5
Call ErrorRsenD(" ,,;;

;,,")
TimeOut 0.6
Call ErrorRsenD(";


         End If
      Case ".nazi"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
Call ErrorRsenD("                                                               ,,,;
TimeOut 0.5
Call ErrorRsenD(",,,,,  ,,,,,,,,,,         ,,,,,,,,,   ,,    ,,,,,,,,,,,,,,,,,  ,,,,,,")
TimeOut 0.5
Call ErrorRsenD(" ;;;;;;;
;;;;;,   ,;;;;
;;;;;;
        ,;;;;;
;;;")
TimeOut 0.5
Call ErrorRsenD(" ;;;;;;        ;;;;;  ;;;;
        ;;;;            ,;;;;;
       ;;;")
TimeOut 0.5
Call ErrorRsenD(" ;;;;;         ;;;;; ;;;;          ;;;;          ,;;;;
          ;;;")
TimeOut 0.5
Call ErrorRsenD(" ;;;;         ,;;;;  ;;;;         ;;;;;        ,;;;;
            ;;;")
TimeOut 0.6
Call ErrorRsenD(" ;;;;       ,;;;;
;;;,      ,;;;;;;      ,;;;;
              ;;;")
TimeOut 0.5
Call ErrorRsenD(";;;;;   ,,,;;;;,,,;
;;;;,,;;;
;;;;,  ,;;;;;;,,,,,,,,,,,    ,;;;,")
TimeOut 0.6
Call ErrorRsenD("
                      ;;

         End If
         Case ".ReV7"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Call ErrorRsenD("                                                   ,,")
TimeOut 0.5
Call ErrorRsenD("                                              ,,,;;;
TimeOut 0.5
Call ErrorRsenD("  ,,,,,,,,,      ,,,,,,,,,,,,,,, ,,,,,,,,      ;;;;
TimeOut 0.5
Call ErrorRsenD("
;;;;,,,;;;;;,     ;;;;,,,,;;;;
;;;;;
     ;;;
TimeOut 0.6
Call ErrorRsenD("   ;;;;;    ;;;;     ;;;;;
      ;;;;;     ;;;
TimeOut 0.6
Call ErrorRsenD("  ;;;;;   ,;;;;     ;;;;;  ;;;        ;;;;;   ,;;
TimeOut 0.5
Call ErrorRsenD("  ;;;;;,,;;;;
   ,;
;;;
;;;;,  ;;;")
TimeOut 0.6
Call ErrorRsenD("
;;;;,,;;;;     ;;;;;;;;
;;         ;;;;; ;;;")
TimeOut 0.6
Call ErrorRsenD("
;;;;;
;;;       ;;;;;               ;;;;;;;")
TimeOut 0.6
Call ErrorRsenD("   ;;;;;   ;;;;,     ;;;;;    ,;;;        ;;;;;
TimeOut 0.5
Call ErrorRsenD(" ,;;;;;,
;;;;,,  ,;;;;;,,,;;;;;;,     ,;;;;;,")
TimeOut 0.5
Call ErrorRsenD("
  ;;;;;
TimeOut 0.5
Call ErrorRsenD("
         End If
          Case ".ReV3"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
Call ErrorRsenD(" ;
;;;;;;
,,                  ;
;,     ,;
TimeOut 0.5
Call ErrorRsenD(";    ;     ;
,                ;
;,
,   ;")
TimeOut 0.5
Call ErrorRsenD(";    ;      ;    ;                ;     ;,      ;  ,;")
TimeOut 0.5
Call ErrorRsenD(";    ;,,    ;    ;    ,,
,      ;     ;      ; ,;")
TimeOut 0.5
Call ErrorRsenD(";    , ;
,,
,     ;     ;    ; ,;")
TimeOut 0.5
Call ErrorRsenD(";    ;
    ;
 ;   ;,,
     ;     ;  ;
TimeOut 0.6
Call ErrorRsenD(";    ; ;    ;      ;
           ;     ;; ;;")
TimeOut 0.6
Call ErrorRsenD(";    ;
,    ;     ;
;,             ;     ,;
TimeOut 0.6
Call ErrorRsenD(";    ;
,
,,,;
,
;,         ;   ,;
TimeOut 0.6
Call ErrorRsenD(";,,,,;
,,    ,;
,,,,,

TimeOut 0.6
Call ErrorRsenD("

       End If
          Case ".GR"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Call Text_GreenRed(strArgument1$)
         End If
         Case ".CDPlayer"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
        Shellz& = Shell("c:\windows\Cdplayer.exe", 1): NoFreeze& = DoEvents()
     End If
      Case ".ClearChat"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
       ' Shellz& = Shell("c:\windows\Cdplayer.exe", 1): NoFreeze& = DoEvents()
 Call ErrorRsenD("<font  ptsize=100><Font Color=#FFFFFE>@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@<Font Color=#FFFFFE><<A")

        End If
         Case ".ErrorRShades"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Al.Play ("idle2_3")
         Al.Play ("idle2_3return")
        End If
        Case ".ErrorRMoveRight"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
            Al.Play ("moveright")
            Al.Play ("moverightreturn")
            End If

              Case ".ErrorRMoveUp"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
            Al.Play ("moveup")
            Al.Play ("moveupreturn")
            End If

            Case ".PleaseErrorR"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
       Al.Play ("pleased")
       Al.Play ("pleasedreturn")
       End If
        Case ".Punt"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
      Call InstantMessage(strArgument1$, Text8)
        End If
         Case ".MailErrorR"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
       Call SendMail(strArgument1$, "Hi Remember Me", Text9)

       End If

         Case ".greet1"
    If Len(What_Said$) > 4& Then
       strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
       Call AddRoomToListbox(List1)
        For X = 0 To List1.ListCount - 1
        TimeOut (0.7)
        ErrorRsenD ("<b>.-
-SuP'z <Font Color=#D40000><b>" + List1.List(X))

  ' Case ".eliteT"
  '  If Len(What_Said$) > 4& Then
  '     strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
  '     Call EliteTalker(strArgument1$)
   '    End If

Next X

End If
End Select
End If
End Sub
Private Sub Chat13_ChatMsg(Screen_Name As String, What_Said As String)
     Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
     Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
             Case ".ghost"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Ghost_On
         End If

            Case ".playwav"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Playwav(strArgument1$)



         End If
      End Select
   End If
End Sub
Private Sub Chat14_ChatMsg(Screen_Name As String, What_Said As String)
     Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
     Case ".Unghost"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Ghost_Off
         End If
                Case ".Loc"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call CheckIfOnline2(strArgument1$)
         End If

                Case ".ErrorRGuyGreetUrWoman"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
                Miku.Show
            Text14 = " Shit i just woke up baby"
           ' TimeOut 1.4
            Miku.Speak Text14
        TimeOut 3.4
            Text14 = " eheheh bitch you a lazy hoe"
            TimeOut 3.4
            Al.Speak Text14
          TimeOut 0.4
            Text14 = "Im sorry baby for waking up so late but its that you fucked me hard last night"
              TimeOut 3.5
            Miku.Speak Text14
            TimeOut 1.2
            Text14 = "Well bitch im ReV son like dady like son "
            TimeOut 3.4
            Al.Speak Text14
            TimeOut 1.9
            Miku.Hide
            TimeOut 1.4
            End If

             Case ".Spell"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>You have been cursed " + strArgument1$ + ".")

               End If
               Case ".shoot"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Al.Play ("suggest")
               TimeOut 1.4
               Text14 = "You must die " + strArgument1$ + ". Fucking with me hehe you die......"
               TimeOut 1.2
               Al.Speak Text14
               TimeOut 1.3
               Text14 = ""
               Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>You have just been killed " + strArgument1$ + ".")
               End If
                  Case ".DeleteAllMail"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call MailNewDeleteAllBut("[e-mail]")

               End If
                  Case ".OpenSentMail"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Mail_OpenSent

               End If
                   Case ".OpenOldMail"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Mail_OpenOld

               End If
                   Case ".OpenNewMail"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)

               Call Mail_OpenNew

               End If

             Case ".eliteT"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call EliteTalker(strArgument1$)
                    End If
                     Case ".Rape"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>You have Just been Raped " + strArgument1$ + ".")
               End If

                     Case ".Fight"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
ErrorRsenD ("<Font Color=#D40000><b>The Fighter's chosen is: " + strArgument1$ + " and ErrorR-Guy")
TimeOut (1#)
ErrorRsenD ("LeT ThE FigHT BeGiN!")
X = Int(Rnd * 10 + 1)
ErrorRsenD ("ErrorR-Guy slaps " + strArgument1$ + " in the Face!")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " screamed like a bitch because ErrorR-Guy kicked him")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " foot's ErrorR-Guy then ErrorR-Guy ran up and hooked " + strArgument1$ + " in back of the head !")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " got up and stabed by ErrorR-Guy " + strArgument1$ + " he started to cry.")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " Cuts ErrorR-Guy nuts off with a knife")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " Hits ErrorR-Guyin the head with a lu-e-vill-sluger")
TimeOut (1#)
ErrorRsenD ("ErrorR-Guy body slamed " + strArgument1$ + " he landed on concrete, neck first !!")
TimeOut (1#)
ErrorRsenD ("ErrorR-Guy grabs " + strArgument1$ + " in a head lock.")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " got out of the and kick ErrorR-Guy in the knee cap ")
TimeOut (1#)
ErrorRsenD ("ErrorR-Guy runs up and hooked " + strArgument1$ + " .He fallz on his ass ")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " starts to swing like a little bitch and hits ErrorR-Guy in the head")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " started to run like a little bitch")
TimeOut (1#)
ErrorRsenD ("ErrorR-Guy ran up and side kicked " + strArgument1$ + " in the back.")
TimeOut (1#)
ErrorRsenD (strArgument1$ + " got up and stuck ErrorR-Guy and broke his nose")
TimeOut (1#)
ErrorRsenD ("ErrorR-Guy gets mad and and he shoots. ")
TimeOut (1#)
ErrorRsenD (strArgument1$ + ". 10 minutes later. ErrorR-Guy made channel 7 new's")
TimeOut (1#)
X = Int(Rnd * 10 + 1)
ErrorRsenD ("<Font Color=#D40000><b>ErrorR-Guy killed " + strArgument1$ + ".")
TimeOut (9999999)
End If
      End Select
   End If

End Sub
Private Sub Chat15_ChatMsg(Screen_Name As String, What_Said As String)
   Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$

             Case ".CrazyStrike"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Text_StrikeCrazy(strArgument1$)
            End If
              Case ".signoff"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
            Call signoff
            End If
              Case ".MailLag"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
         Call SendMail(" " + strArgument1$ + " ", "Hi Remember me", "  " + Text10 + "")
         End If

          Case ".Wavy"
               If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
            Call WavY(strArgument1$)
            End If
             Case ".MailErrorR"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
           Call SendMail(" " + strArgument1$ + " ", "Hi Remember me", "  " + Text9 + "")
           End If

            Case ".RestartComp"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Windows_ReStart
               End If
                 Case ".SwitchSN"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call SwitchSN(strArgument1$)
               End If
                Case ".ErrorrQuake"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Form_EarthQuakeLong(Form1)
               End If
               Case ".KeyWord"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Keyword(strArgument1$)
               'KeyWord
               End If

               Case ".ReV?"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call CheckIfOnline2("MrRevren21")
               End If
                Case ".Greets"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Al.Speak (Text13)
               'Text13
               End If
               Case ".CrazyT"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Text_VeryCrazy(strArgument1$)
               End If

                Case ".ip"
                      If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
             ' Shellz& = Shell("c:\windows\Cdplayer.exe", 1): NoFreeze& = DoEvents()
              Call Shell_MyIP(Winipcfg.exe)
               'Shellz& = Shell("Winipcfg.exe", 1): NoFreeze& = DoEvents()

               End If
               Case ".ErrorRGuyPimpUrBitch"
                      If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               '(strArgument1$)
               TimeOut 0.9
               Miku.Show

               Al.Speak ("Damn bitch you didnt clean your pussy today hoe")
               TimeOut 6.7
               Miku.Speak ("Well damn ErrorR Guy im just a bitch no need to yell.")
               TimeOut 6.7
               Al.Speak ("Aigh boo just next time clean your shit")
               TimeOut 6.7
               Miku.Speak ("Ok big dady, you no you can fuck me all you want")
               TimeOut 6.7
               Al.Speak ("Well damn how I want some head now bitch")
               TimeOut 6.7
               Miku.Speak ("hehe baby you a naughty boy.")
               TimeOut 6.7
               Al.Speak ("Well ReV taught me my pimpness")

               TimeOut 3.4
               Miku.Hide
               End If
                 Case ".massim"
                      If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call AddRoomToListbox(List2)
               Wait 0.4
               Call massim(List2, strArgument1$)
               '(strArgument1$)
               End If
                 Case ".OpenCDRom"
                      If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call CDDoorOpen
               End If

                Case ".Dice"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ErrorRsenD("//roll -dice999 -sides999")
                Call ErrorRsenD("//roll -dice999 -sides999")
                TimeOut 0.4
                 Call ErrorRsenD("//roll -dice999 -sides999")
                 TimeOut 0.3
                  Call ErrorRsenD("//roll -dice999 -sides999")
                  End If
                    Case ".Tos"
                          If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
                    Call SendMail(" " + Text11 + " ", "Help please..", "  Hi Everyone At Aol, " + strArgument1$ + " Has Said- " + UserSN + ": Hello Aol member, We Had A Curent Problem With Our system and lost all your files, please respond with your name, street address, credit card number, password, type of credit card, your billing info, and all the other accounts on your aol account(and there passwords, thank you very much- aol Staff   This person recently said that, is he with aol?")


              'Tos general
              ' Hi Everyone At Aol, " + strArgument1$ + " Has Said- " + usersn + ": Hello Aol member, We Had A Curent Problem With Our system and lost all your files, please respond with your name, street address, credit card number, password, type of credit card, your billing info, and all the other accounts on your aol account(and there passwords, thank you very much- aol Staff   This person recently said that, is he with aol?
               End If

                      Case ".DrugBotOff"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)

              Call ErrorRsenD(" <b>-
-<Font Color=#D40000><b>DRuG BoT De-Activated")
              Call ErrorRsenD(" <b>-
-<Font Color=#D40000><b>DRuG Yall aint smokin my shit fo free")

              Timer6.Enabled = False
               End If

                Case ".Link"
            lngComma& = InStr(What_Said$, ",")
            If lngComma& <> 0& And lngComma& > lngSpace& + 2& And lngComma& < Len(What_Said$) - 2& Then
               strArgument1$ = Trim(Mid(What_Said$, lngSpace& + 1&, lngComma& - lngSpace& - 1&))
               strArgument2$ = Trim(Right(What_Said$, Len(What_Said$) - lngComma& - 1&))
               If strArgument1$ <> "" And strArgument2$ <> "" Then
                  Call ErrorRsenD("< A HREF=" + (strArgument1$) + "> " + (strArgument2$) + " ")





           End If
         End If
      End Select
   End If
End Sub
Private Sub Chat16_ChatMsg(Screen_Name As String, What_Said As String)
  Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
     'Text_Reverse
      Case ".Rever"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Text_Reverse(strArgument1$)
               End If
               'SNameDecoder(name As String, Ascii As String)
                Case ".SnDecode"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call SNameDecoder(strArgument1$, strArgument1$)
               End If
       Case ".Big"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call ErrorRsenD("<font  ptsize=100><FONT FACE=" & Chr$(34) & "Monotype Sorts" & Chr$(34) & ">" + strArgument1$ + "<Font Color=#FFFFFE><<A")
               End If
              Case ".r33T"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              ReV = Talker_r33t(strArgument1$)
              ErrorRsenD (ReV)
              End If
              Case ".ReverseT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call Text_Reverse(strArgument1$)
              End If

               Case ".dotT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              ReV = Talker_Dot(strArgument1$)
               ErrorRsenD (ReV)
                End If
                 Case ".slashT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)

               ReV = Talker_Slash(strArgument1$)
               ErrorRsenD (ReV)
                End If
                  Case ".ErrorR-Guy-Talk-To-ErrorRBitch"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)

               End If
                  Case ".dashT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call Text_Dash(strArgument1$)
                End If
                Case ".spaceT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
                  ReV = Talker_Space(strArgument1$)
                  ErrorRsenD (ReV)
                End If
                 Case ".PupT"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              ReV = Talker_PuP(strArgument1$)
              ErrorRsenD (ReV)
               End If
                Case ".Scroll5"
                If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
              Call ErrorRsenD("<font  ptsize=100>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
              Call ErrorRsenD("<font  ptsize=80>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
              TimeOut 0.6
              Call ErrorRsenD("<font  ptsize=60>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
              Call ErrorRsenD("<font  ptsize=40>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
              TimeOut 1.8
              Call ErrorRsenD("<font  ptsize=20>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
             Call ErrorRsenD("<font  ptsize=10>" + strArgument1$ + "<Font Color=#FFFFFE><<A")
              End If
       Case ".PingIP"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)


     Dim ECHO As ICMP_ECHO_REPLY
   Dim Pos As Integer
  'ping an ip address, passing the
  'address and the ECHO structure
   Call Ping(strArgument1$, ECHO)
  'display the results from the ECHO structure
   txtInfo = GetStatusCode(ECHO.status) & vbCrLf
   txtInfo = txtInfo & ECHO.Address & vbCrLf
   txtInfo = txtInfo & ECHO.RoundTripTime & " ms" & vbCrLf
   txtInfo = txtInfo & ECHO.DataSize & " bytes" & vbCrLf
   If Left$(ECHO.Data, 1) <> Chr$(0) Then
      Pos = InStr(ECHO.Data, Chr$(0))
      txtInfo = txtInfo & Left$(ECHO.Data, Pos - 1) & vbCrLf
   End If
   txtInfo = txtInfo & ECHO.DataPointer
   Call ErrorRsenD("-<Font Color=#D40000><b>"" " + txtInfo + "")

         End If
      End Select
   End If
End Sub
Private Sub Chat17_ChatMsg(Screen_Name As String, What_Said As String)
 Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".ResetSN"
            lngComma& = InStr(What_Said$, ",")
            If lngComma& <> 0& And lngComma& > lngSpace& + 2& And lngComma& < Len(What_Said$) - 2& Then
               strArgument1$ = Trim(Mid(What_Said$, lngSpace& + 1&, lngComma& - lngSpace& - 1&))
               strArgument2$ = Trim(Right(What_Said$, Len(What_Said$) - lngComma& - 1&))
               If strArgument1$ <> "" And strArgument2$ <> "" Then
                  Call Sn_NewUser(strArgument1$, strArgument2$)
               'call  Sn_NewUser(dir As String, Replace As String)
               End If


         End If
      End Select
   End If
End Sub
Private Sub Chat2_ChatMsg(Screen_Name As String, What_Said As String)
   Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".imsoff"
            Timer2.Enabled = True
         Case ".pr"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call PrivateRoom(strArgument1$)
               ' If laschatline = (".OnlineHost:     *** You are in") Then
               '  Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Punished AoL")
               '    Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Busted in: " + GetRoomTitle)
            End If
         Case ".im"
            lngComma& = InStr(What_Said$, ",")
            If lngComma& <> 0& And lngComma& > lngSpace& + 2& And lngComma& < Len(What_Said$) - 2& Then
               strArgument1$ = Trim(Mid(What_Said$, lngSpace& + 1&, lngComma& - lngSpace& - 1&))
               strArgument2$ = Trim(Right(What_Said$, Len(What_Said$) - lngComma& - 1&))
               If strArgument1$ <> "" And strArgument2$ <> "" Then
                  Call InstantMessage(strArgument1$, strArgument2$)
               End If


         End If
      End Select
   End If
End Sub
Private Sub Chat3_ChatMsg(Screen_Name As String, What_Said As String)
Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$

               Case ".x"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ChatIgnore2(strArgument1$)
         End If
             Case ".dis"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ErrorRScreenNameDis(strArgument1$)
         End If
            Case ".un-x"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ChatUnIgnore3(strArgument1$)



         End If
      End Select
   End If
End Sub
Private Sub Chat5_ChatMsg(Screen_Name As String, What_Said As String)
      Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
         End If
           Select Case strCommand$

              Case ".DrugBot"
                 If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
             Call SendChat("<b>-
-<Font Color=#D40000><b>DRuG BoT AvTiVaTeD!")
               Call ErrorRsenD("<b>-
-<Font Color=#D40000><b>Type '/smoke' To HiT Da Blunt")
              Timer6 = True


        End If
    End Select
End If
End Sub
Private Sub Chat6_ChatMsg(Screen_Name As String, What_Said As String)
     Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
         End If
           Select Case strCommand$


       Case ".ProScroll"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ScrollProfile2(strArgument1$)
               End If
                       Case ".pro"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call getprofile(strArgument1$)

           End If
    End Select
End If
End Sub
Private Sub Chat4_ChatMsg(Screen_Name As String, What_Said As String)
    Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$

            Case ".imson"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
                Timer3.Enabled = True
                End If




      End Select
   End If
End Sub
Private Sub Chat7_ChatMsg(Screen_Name As String, What_Said As String)
Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$

               Case ".upchat"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call AOL4_UpChat
         End If
             Case ".scroll3"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call ReVXoR(strArgument1$)
         End If
            Case ".HackerT"
            If Len(What_Said$) > 4& Then
               strArgument1$ = Right(What_Said$, Len(What_Said$) - lngSpace&)
               Call Text_Hacker(strArgument1$)

         End If
      End Select
   End If
End Sub
Private Sub Chat8_ChatMsg(Screen_Name As String, What_Said As String)
 Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".idle"
         Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Idle Bot - on")
         Timer1.Enabled = True
End Select
End If
End Sub
Private Sub Chat9_ChatMsg(Screen_Name As String, What_Said As String)
 Dim lngSpace As Long, strCommand As String, strArgument1 As String
   Dim strArgument2 As String, lngComma As Long
   If Screen_Name$ = UserSN And InStr(What_Said, ".") = 1& Then
      lngSpace& = InStr(What_Said$, " ")
      If lngSpace& = 0& Then
         strCommand$ = What_Said$
      Else
         strCommand$ = Left(What_Said$, lngSpace& - 1&)
      End If
      Select Case strCommand$
         Case ".idleOff"
         Timer1.Enabled = False


End Select
End If
End Sub
Private Sub Form_Load()
'<Font Color=#000000>
'             _____________
'            /ErrorR Domain\\\
'           /::|>r3z;:|2eV:;\\\
'          |;:.'Vp1;:FreaK:,;|||
'          |;::'Vp2:;Choas;;:|||
'          |::;;;;Propz:;",;:|||
'          |:;:;:;;-2-:;:;:;:|||
'           \::::;;All:;:;:;///
'            \:;::ErrorR:;:///
'             \___________///
StayOnTop Me
Chat1.ScanOn
Chat2.ScanOn
Chat3.ScanOn
Chat4.ScanOn
Chat5.ScanOn
Chat6.ScanOn
Chat7.ScanOn
Chat8.ScanOn
Chat9.ScanOn
Chat10.ScanOn
Chat11.ScanOn
Chat12.ScanOn
Chat13.ScanOn
Chat14.ScanOn
Chat15.ScanOn
Chat16.ScanOn
Chat17.ScanOn
'Agent1.Characters.Load "Al", DATAPATHd
 '    Set Al = Agent1.Characters("Al")
  ' Al.LanguageID = &H409
  '      Al.Show
  ' Al.Balloon.FontName = "Compacta Blk BT"
  ' Al.Speak Text3  ' his greet load
   ' Al.Speak "\Chr=""Monotone""\\Map=""\Pit=52\\Spd=130\Welcome to ErrorR Com if you want to fuc with ErrorR you will be abused, all fucking lamerz are guilty till proven dead if wish to pass that law them you will be abused in the coming future this massege has been braught to you from ReV all rights have been reserved.""=""Welcome to ErrorR Com if you want to fuc with ErrorR you will be abused, all fucking lamerz are guilty till proven dead if wish to pass that law them you will be abused in the coming future this massege has been braught to you from ReV all rights have been reserved.""\"
   'Al.Play ("moveleft")
   'Al.Play ("movedown")
   'Al.Play ("suggest") ' his guns
 'Agent1.Characters.Load "miku", DATAPATHe
  '   Set Miku = Agent1.Characters("Miku")
   ' Miku.LanguageID = &H409
   '     Miku.Hide
  'Miku.Balloon.FontName = "Compacta Blk BT"
  'Miku.Speak ("")
'  Miku.Speak Text3
  'ErrorR-Bitch-Acitons
'Hiding
'Showing
'Speaking
' Miku.Show
   'ErrorR-Guy Actions
'Acknowledge
''Alert
'AlertReturn
'Announce
'AnnounceReturn
'Blink
'Clap
'Confused
'ConfusedReturn
'Congratulate
'CongratulateReturn
'Decline
'DeclineReturn
'DontRecognize
'DontRecognizeReturn
'Explain
'ExplainReturn
'GestureDown
'GestureDownReturn
'GestureLeft
'GestureLeftReturn
'GestureRight
'GestureRightReturn
'GestureUp
'GestureUpReturn
'GetAttention
'GlanceDown
'GlanceLeft
'GlanceRight
'GlanceUp
'Greet
'GreetReturn
'Hear_1
'hear_2
'hear_3
'Hear_4
'Hide
'Idle1_1
'Idle1_2
'Idle1_3
'Idle1_4
'Idle1_5
'Idle1_6
'Idle2_1
'Idle2_2
'Idle2_3
'Idle2_3Return
'Idle3_1
'Idle3_2
'Idle3_2Return
'LookDown
'LookDownBlink
'LookLeft
'LookLeftBlink
'LookRight
'LookRightBlink
'LookUp
'LookUpBlink
'MoveDown
'MoveDownReturn
'MoveLeft
'MoveLeftReturn
'MoveRight
'MoveRightReturn
'MoveUp
'MoveUpReturn
'Pleased
'PleasedReturn
'ProcessingReturn
'Read
'ReadContinued
'ReadingReturn
'ReadReturn
'RestPose
'Show
'StartListening
'StartListeningReturn
'StopListening
'StopListeningReturn
'Suggest
'SuggestReturn
'Surprised
'SurprisedReturn
'Think
'ThinkReturn
'Uncertain
'UncertainReturn
'Wave
'WaveReturn
'Whisper
'WhisperReturn
'Write
'WriteReturn
'WritingReturn
'ErrorR-Bitch-Acitons
'Greet
'Hiding
'Showing
'Speaking
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormMove Me
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormMove Me
End Sub
Private Sub Label2_Click()
Al.Stop
'Chat1.ScanOff
'Chat2.ScanOff
'Chat3.ScanOff
'Chat4.ScanOff
'Chat5.ScanOff
'Chat6.ScanOff
'Chat7.ScanOff
'Chat8.ScanOff
'Chat9.ScanOff
'Chat10.ScanOff
'Chat11.ScanOff
'Chat12.ScanOff
Chat1.ScanOff
Chat2.ScanOff
Chat3.ScanOff
Chat4.ScanOff
Chat5.ScanOff
Chat6.ScanOff
Chat7.ScanOff
Chat8.ScanOff
Chat9.ScanOff
Chat10.ScanOff
Chat11.ScanOff
Chat12.ScanOff
Chat13.ScanOff
Chat14.ScanOff
Chat15.ScanOff
Chat16.ScanOff
Chat167.ScanOff
Unload Me
End Sub
Private Sub MSRDC1_Validate(Action As Integer, Reserved As Integer)
End Sub
Private Sub Timer1_Timer()
DoEvents
'TimeOut (0.7)
Label1.Caption = Val(Label1) + 1
 Call ErrorRsenD("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Idle for " + Label1.Caption + " Mi(\/[s]")
' Call SendChat("<b><FONT FACE=" & Chr$(34) & "Wingdings" & Chr$(34) & ">i<FONT FACE=" & Chr$(34) & "arial" & Chr$(34) & "><Font Color=#D40000><b>Abuser: " + UserSN)
End Sub
Private Sub Timer2_Timer()
   Call IMOFF
   Al.Speak Text1
  Timer2 = False
End Sub
Private Sub Timer3_Timer()
   Call IMOn
   Al.Speak Text2
  Timer3 = False
End Sub
Private Sub Timer4_Timer()
      Text1 = (strArgument1$)
If Text4 = Text5 Then GoTo shit
Al.Speak Text4
Text5 = Text4
shit:
Timer4 = False
End Sub
Private Sub Timer5_Timer()
Text4 = LastChatLine
If Text4 = Text5 Then GoTo shit
Al.Speak Text4
Text5 = Text4
shit:
End Sub
Private Sub Timer6_Timer()
If LCase(LastChatLine) Like LCase("/smoke") Then
Call TimeOut(0.1)
Call TimeOut(0.1)
X = Int(Rnd * 10 + 1)
If X = 1 Then ErrorRsenD "" + SNFromLastChatLine + " RoLL That shit up"
TimeOut (0.1)
If X = 2 Then ErrorRsenD "" + SNFromLastChatLine + " spark taht shit up nigga!"
TimeOut (0.1)
If X = 3 Then ErrorRsenD "" + SNFromLastChatLine + " pass that shit nigga..."
TimeOut (0.1)
If X = 4 Then ErrorRsenD "" + SNFromLastChatLine + " its puff puff give u baby sittin"
TimeOut (0.1)
If X = 5 Then ErrorRsenD "" + SNFromLastChatLine + " you aint smoking for free!"
TimeOut (0.1)
If X = 6 Then ErrorRsenD "" + SNFromLastChatLine + " u can't hang son, you aint smokin for free.."
TimeOut (0.1)
If X = 7 Then ErrorRsenD "" + SNFromLastChatLine + " u droped that shit violation violation!
TimeOut (0.1)
If X = 8 Then ErrorRsenD "" + SNFromLastChatLine + " roll your window up time to fog it up..."
TimeOut (0.1)
If X = 9 Then ErrorRsenD "" + SNFromLastChatLine + " you goin to match me full."
TimeOut (0.1)
If X = 10 Then ErrorRsenD "" + SNFromLastChatLine + " caughin his nut'z out cuz he can't with the big boy'z"
TimeOut (0.1)
Call TimeOut(0.3)
End If
End Sub